﻿Imports BusinessLogicLayer
Imports BE = BusinessEntities

Partial Class Login
    Inherits System.Web.UI.Page

    Dim errores As String
    Dim mensaje As String
    Public Shared cliente As String

   
    Protected Sub btnProcesar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnProcesar.Click

        'Instanciamos la clase ClienteBL
        Dim capanegocios As New ClienteBL
        'Instancias la entidad ClienteBE
        Dim objeto As New BE.ClienteBE

        'Llenas las propiedades

        objeto.usuario = txtUsuario.Text
        objeto.password = txtPassword.Text

        Dim exito As New Boolean

        Try

            'Invocamos al método ValidarCliente definido previamente en la clase
            If capanegocios.ValidarCliente(objeto).Tables("ClienteValidado").Rows.Count = 0 Then

                mensaje = "Claves incorrectas"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

            Else

                capanegocios.ValidarCliente(objeto)
                Session("CLIENTE") = capanegocios.ValidarCliente(objeto).Tables("ClienteValidado").Rows(0).Item(0)
                Session("TIPO") = capanegocios.ValidarCliente(objeto).Tables("ClienteValidado").Rows(0).Item(6)


                mensaje = "Bienvenido a Aerojet.com.pe"
                Dim script As String = "<script language=Javascript>"
                script += "alert('" & mensaje & "');"
                script += "</script>"
                Page.ClientScript.RegisterStartupScript(Me.GetType(), "script", script)

                'Redirigimos al cliente a la página a la cual intentó acceder

                FormsAuthentication.RedirectFromLoginPage(objeto.usuario, False)


            End If

        Catch ex As Exception
            errores = capanegocios.ChapaError
            Response.Redirect("Errores.aspx?id=" & errores)
        Finally
            capanegocios = Nothing
            objeto = Nothing
        End Try
            

    End Sub

  
End Class
